<%
'#################################################################################
'## UnWritten Open Source Blog Engine
'#################################################################################
'## Copyright (C) 2008 Luigi Violin
'##
'## This program is free software: you can redistribute it and/or modify
'## it under the terms of the GNU General Public License as published by
'## the Free Software Foundation, either version 2 of the License, or
'## (at your option) any later version.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program.  If not, see <http://www.gnu.org/licenses/>.
'##
'## You can obtain support from our forums at:
'##     <http://www.unwrittenblog.com/forums/>
'## Contact the author directly:
'##     <zaamit@hotmail.com/>
'##
'#################################################################################
%>
<%
response.status = "200 OK"
page_name = grabPage()
%>

<!--#include virtual="/default.asp"-->

<%
function grabPage()
	strQuery = Request.ServerVariables("QUERY_STRING")
	if not(right(strQuery,1)="/") then strQuery = strQuery & "/"
	urlpar = split(strQuery,"/")
	grabPage = urlpar(ubound(urlpar,1)-1)
	'ispar = false
	'for i = 0 to ubound(urlpar,1)-2
	'	if ispar then
	'		pagePar = pagePar & "&" & chr(97+i) & "=" & urlpar(i)
	'	end if
	'	if urlpar(i) = "zb" then ispar = true
	'next
end function
%>